home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 6.2 / 2000-12_-_Disc_6.2.iso / Patches / age2upa.exe / CABFILE / FILESUSA.CAB / Data / gamedata.drs / Unnamed File 000031.bina < prev    next >
Text File  |  1999-11-11  |  14KB  |  674 lines
  1. #load-if-defined GAME-SPEED-LOCKED
  2. (defrule
  3.     (true)
  4. =>
  5.     (set-goal rush-control 0)
  6.     (disable-self)
  7. )
  8. #else
  9. (defrule
  10.     (true)
  11. =>
  12.     (set-goal rush-control 0)
  13.     (disable-self)
  14. )
  15. #end-if
  16. ;*************************************************************
  17. #load-if-defined POPULATION-CAP-25
  18. (defconst civ-dark-rush 10)
  19. (defconst civ-dark 11)
  20. (defconst civ-feudal 13)
  21. (defconst civ-castle 15)
  22. (defconst pop-cap 25)
  23. (defconst deathmatch-unit-max 13)
  24.  
  25. (defconst feudal-town-size 20)
  26. (defconst castle-town-size 25)
  27. (defconst imperial-town-size 25)
  28.  
  29. #load-if-defined DIFFICULTY-EASIEST
  30. (defconst unit-max 19)
  31. #end-if
  32.  
  33. #load-if-defined DIFFICULTY-EASY
  34. (defconst unit-max 19)
  35. #end-if
  36.  
  37. #load-if-defined DIFFICULTY-MODERATE
  38. (defconst unit-max 21)
  39. #end-if
  40.  
  41. #load-if-defined DIFFICULTY-HARD
  42. (defconst unit-max 23)
  43. #end-if
  44.  
  45. #load-if-defined DIFFICULTY-HARDEST
  46. (defconst unit-max 23)
  47. #end-if
  48.  
  49. (defconst five-percent-pop 1)
  50. (defconst ten-percent-pop 3)
  51. (defconst fifteen-percent-pop 4)
  52. (defconst twenty-percent-pop 5)
  53. (defconst thirty-percent-pop 8)
  54. #end-if
  55. ;***************************
  56. #load-if-defined POPULATION-CAP-50
  57. (defconst civ-dark-rush 15)
  58. (defconst civ-dark 20)
  59. (defconst civ-feudal 30)
  60. (defconst civ-castle 35)
  61. (defconst pop-cap 50)
  62. (defconst deathmatch-unit-max 25)
  63.  
  64. (defconst feudal-town-size 20)
  65. (defconst castle-town-size 25)
  66. (defconst imperial-town-size 30)
  67.  
  68. #load-if-defined DIFFICULTY-EASIEST
  69. (defconst unit-max 35)
  70. #end-if
  71.  
  72. #load-if-defined DIFFICULTY-EASY
  73. (defconst unit-max 35)
  74. #end-if
  75.  
  76. #load-if-defined DIFFICULTY-MODERATE
  77. (defconst unit-max 40)
  78. #end-if
  79.  
  80. #load-if-defined DIFFICULTY-HARD
  81. (defconst unit-max 45)
  82. #end-if
  83.  
  84. #load-if-defined DIFFICULTY-HARDEST
  85. (defconst unit-max 45)
  86. #end-if
  87.  
  88. (defconst five-percent-pop 2)
  89. (defconst ten-percent-pop 5)
  90. (defconst fifteen-percent-pop 7)
  91. (defconst twenty-percent-pop 10)
  92. (defconst thirty-percent-pop 15)
  93. #end-if
  94. ;***************************
  95. #load-if-defined POPULATION-CAP-75
  96. (defconst civ-dark-rush 20)
  97. (defconst civ-dark 25)
  98. (defconst civ-feudal 35)
  99. (defconst civ-castle 40)
  100. (defconst pop-cap 75)
  101. (defconst deathmatch-unit-max 55)
  102.  
  103. (defconst feudal-town-size 20)
  104. (defconst castle-town-size 30)
  105. (defconst imperial-town-size 30)
  106.  
  107. #load-if-defined DIFFICULTY-EASIEST
  108. (defconst unit-max 56)
  109. #end-if
  110.  
  111. #load-if-defined DIFFICULTY-EASY
  112. (defconst unit-max 56)
  113. #end-if
  114.  
  115. #load-if-defined DIFFICULTY-MODERATE
  116. (defconst unit-max 63)
  117. #end-if
  118.  
  119. #load-if-defined DIFFICULTY-HARD
  120. (defconst unit-max 70)
  121. #end-if
  122.  
  123. #load-if-defined DIFFICULTY-HARDEST
  124. (defconst unit-max 70)
  125. #end-if
  126.  
  127. (defconst five-percent-pop 3)
  128. (defconst ten-percent-pop 8)
  129. (defconst fifteen-percent-pop 10)
  130. (defconst twenty-percent-pop 15)
  131. (defconst thirty-percent-pop 23)
  132. #end-if
  133. ;***************************
  134. #load-if-defined POPULATION-CAP-100
  135. (defconst civ-dark-rush 20)
  136. (defconst civ-dark 25)
  137. (defconst civ-feudal 40)
  138. (defconst civ-castle 50)
  139. (defconst pop-cap 100)
  140. (defconst deathmatch-unit-max 70)
  141.  
  142. (defconst feudal-town-size 20)
  143. (defconst castle-town-size 30)
  144. (defconst imperial-town-size 35)
  145.  
  146. #load-if-defined DIFFICULTY-EASIEST
  147. (defconst unit-max 70)
  148. #end-if
  149.  
  150. #load-if-defined DIFFICULTY-EASY
  151. (defconst unit-max 70)
  152. #end-if
  153.  
  154. #load-if-defined DIFFICULTY-MODERATE
  155. (defconst unit-max 80)
  156. #end-if
  157.  
  158. #load-if-defined DIFFICULTY-HARD
  159. (defconst unit-max 90)
  160. #end-if
  161.  
  162. #load-if-defined DIFFICULTY-HARDEST
  163. (defconst unit-max 90)
  164. #end-if
  165.  
  166. (defconst five-percent-pop 5)
  167. (defconst ten-percent-pop 10)
  168. (defconst fifteen-percent-pop 15)
  169. (defconst twenty-percent-pop 20)
  170. (defconst thirty-percent-pop 30)
  171. #end-if
  172. ;***************************
  173. #load-if-defined POPULATION-CAP-125
  174. (defconst civ-dark-rush 20)
  175. (defconst civ-dark 25)
  176. (defconst civ-feudal 40)
  177. (defconst civ-castle 55)
  178. (defconst pop-cap 125)
  179. (defconst deathmatch-unit-max 95)
  180.  
  181. (defconst feudal-town-size 20)
  182. (defconst castle-town-size 35)
  183. (defconst imperial-town-size 40)
  184.  
  185. #load-if-defined DIFFICULTY-EASIEST
  186. (defconst unit-max 90)
  187. #end-if
  188.  
  189. #load-if-defined DIFFICULTY-EASY
  190. (defconst unit-max 90)
  191. #end-if
  192.  
  193. #load-if-defined DIFFICULTY-MODERATE
  194. (defconst unit-max 103)
  195. #end-if
  196.  
  197. #load-if-defined DIFFICULTY-HARD
  198. (defconst unit-max 115)
  199. #end-if
  200.  
  201. #load-if-defined DIFFICULTY-HARDEST
  202. (defconst unit-max 115)
  203. #end-if
  204.  
  205. (defconst five-percent-pop 6)
  206. (defconst ten-percent-pop 13)
  207. (defconst fifteen-percent-pop 18)
  208. (defconst twenty-percent-pop 25)
  209. (defconst thirty-percent-pop 38)
  210. #end-if
  211. ;***************************
  212. #load-if-defined POPULATION-CAP-150
  213. (defconst civ-dark-rush 20)
  214. (defconst civ-dark 25)
  215. (defconst civ-feudal 40)
  216. (defconst civ-castle 60)
  217. (defconst pop-cap 150)
  218. (defconst deathmatch-unit-max 120)
  219.  
  220. (defconst feudal-town-size 20)
  221. (defconst castle-town-size 35)
  222. (defconst imperial-town-size 40)
  223.  
  224. #load-if-defined DIFFICULTY-EASIEST
  225. (defconst unit-max 110)
  226. #end-if
  227.  
  228. #load-if-defined DIFFICULTY-EASY
  229. (defconst unit-max 110)
  230. #end-if
  231.  
  232. #load-if-defined DIFFICULTY-MODERATE
  233. (defconst unit-max 125)
  234. #end-if
  235.  
  236. #load-if-defined DIFFICULTY-HARD
  237. (defconst unit-max 140)
  238. #end-if
  239.  
  240. #load-if-defined DIFFICULTY-HARDEST
  241. (defconst unit-max 140)
  242. #end-if
  243.  
  244. (defconst five-percent-pop 7)
  245. (defconst ten-percent-pop 15)
  246. (defconst fifteen-percent-pop 22)
  247. (defconst twenty-percent-pop 30)
  248. (defconst thirty-percent-pop 45)
  249. #end-if
  250. ;***************************
  251. #load-if-defined POPULATION-CAP-175
  252. (defconst civ-dark-rush 20)
  253. (defconst civ-dark 25)
  254. (defconst civ-feudal 40)
  255. (defconst civ-castle 65)
  256. (defconst pop-cap 175)
  257. (defconst deathmatch-unit-max 145)
  258.  
  259. (defconst feudal-town-size 20)
  260. (defconst castle-town-size 35)
  261. (defconst imperial-town-size 40)
  262.  
  263. #load-if-defined DIFFICULTY-EASIEST
  264. (defconst unit-max 125)
  265. #end-if
  266.  
  267. #load-if-defined DIFFICULTY-EASY
  268. (defconst unit-max 125)
  269. #end-if
  270.  
  271. #load-if-defined DIFFICULTY-MODERATE
  272. (defconst unit-max 145)
  273. #end-if
  274.  
  275. #load-if-defined DIFFICULTY-HARD
  276. (defconst unit-max 165)
  277. #end-if
  278.  
  279. #load-if-defined DIFFICULTY-HARDEST
  280. (defconst unit-max 165)
  281. #end-if
  282.  
  283. (defconst five-percent-pop 8)
  284. (defconst ten-percent-pop 18)
  285. (defconst fifteen-percent-pop 27)
  286. (defconst twenty-percent-pop 35)
  287. (defconst thirty-percent-pop 53)
  288. #end-if
  289. ;***************************
  290. #load-if-defined POPULATION-CAP-200
  291. (defconst civ-dark-rush 20)
  292. (defconst civ-dark 25)
  293. (defconst civ-feudal 40)
  294. (defconst civ-castle 70)
  295. (defconst pop-cap 200)
  296. (defconst deathmatch-unit-max 170)
  297.  
  298. (defconst feudal-town-size 20)
  299. (defconst castle-town-size 35)
  300. (defconst imperial-town-size 40)
  301.  
  302. #load-if-defined DIFFICULTY-EASIEST
  303. (defconst unit-max 130)
  304. #end-if
  305.  
  306. #load-if-defined DIFFICULTY-EASY
  307. (defconst unit-max 130)
  308. #end-if
  309.  
  310. #load-if-defined DIFFICULTY-MODERATE
  311. (defconst unit-max 160)
  312. #end-if
  313.  
  314. #load-if-defined DIFFICULTY-HARD
  315. (defconst unit-max 190)
  316. #end-if
  317.  
  318. #load-if-defined DIFFICULTY-HARDEST
  319. (defconst unit-max 190)
  320. #end-if
  321.  
  322. (defconst five-percent-pop 10)
  323. (defconst ten-percent-pop 20)
  324. (defconst fifteen-percent-pop 30)
  325. (defconst twenty-percent-pop 40)
  326. (defconst thirty-percent-pop 60)
  327. #end-if
  328. ;*************************************************************
  329. ;*************************************************************
  330. #load-if-defined TINY-MAP
  331. (defconst town-center-count 2)
  332. (defconst feudal-mill-count 1)
  333. (defconst castle-mill-count 1)
  334. (defconst imperial-mill-count 1)
  335. (defconst mining-count 8)
  336. #end-if
  337. ;**************************
  338. #load-if-defined SMALL-MAP
  339. (defconst town-center-count 2)
  340. (defconst feudal-mill-count 1)
  341. (defconst castle-mill-count 1)
  342. (defconst imperial-mill-count 1)
  343. (defconst mining-count 8)
  344. #end-if
  345. ;**************************
  346. #load-if-defined MEDIUM-MAP
  347. (defconst town-center-count 2)
  348. (defconst feudal-mill-count 1)
  349. (defconst castle-mill-count 1)
  350. (defconst imperial-mill-count 1)
  351. (defconst mining-count 10)
  352. #end-if
  353. ;**************************
  354. #load-if-defined NORMAL-MAP
  355. (defconst town-center-count 3)
  356. (defconst feudal-mill-count 1)
  357. (defconst castle-mill-count 1)
  358. (defconst imperial-mill-count 2)
  359. (defconst mining-count 11)
  360. #end-if
  361. ;**************************
  362. #load-if-defined LARGE-MAP
  363. (defconst town-center-count 3)
  364. (defconst feudal-mill-count 1)
  365. (defconst castle-mill-count 2)
  366. (defconst imperial-mill-count 3)
  367. (defconst mining-count 12)
  368. #end-if
  369. ;**************************
  370. #load-if-defined GIANT-MAP
  371. (defconst town-center-count 4)
  372. (defconst feudal-mill-count 2)
  373. (defconst castle-mill-count 3)
  374. (defconst imperial-mill-count 4)
  375. (defconst mining-count 15)
  376. #end-if
  377. ;*************************************************************
  378. (defrule
  379.     (not (map-type highland) )
  380. =>
  381.     (set-strategic-number sn-minimum-water-body-size-for-dock 3000)
  382.     (disable-self)
  383. )
  384. ;*************************************************************
  385. #load-if-defined SCENARIO-MAP
  386. (load "petersen fishboat")
  387. (load "petersen warboat")
  388.  
  389. (defrule
  390.     (true)
  391. =>
  392.     (set-goal 1 1)
  393.     (set-goal 2 0)
  394. ;    (chat-to-all-using-id 22145)
  395. ;    (chat-to-all-using-id 22146)
  396.         ;"If this is an all-land or an island map, then please"
  397.         ;"rework thy AI script accordingly."
  398.     (disable-self)
  399. )
  400.  
  401. #end-if
  402. ;*******************************
  403. #load-if-defined ARCHIPELAGO-MAP
  404. (load "petersen fishboat")
  405. (load "petersen warboat island")
  406.  
  407. (defrule
  408.     (true)
  409. =>
  410.     (chat-local-to-self "detecting ocean map!")
  411.     (set-goal 1 10)
  412.     (set-goal 2 0)
  413.     (disable-self)
  414. )
  415.  
  416. #end-if
  417. ;*******************************
  418. #load-if-defined ISLANDS-MAP
  419. (load "petersen fishboat")
  420. (load "petersen warboat island")
  421.  
  422. (defrule
  423.     (true)
  424. =>
  425.     (chat-local-to-self "detecting ocean map!")
  426.     (set-goal 1 10)
  427.     (set-goal 2 0)
  428.     (disable-self)
  429. )
  430.  
  431. #end-if
  432. ;*******************************
  433. #load-if-defined MIGRATION-MAP
  434. (load "petersen fishboat")
  435. (load "petersen warboat island")
  436.  
  437. (defrule
  438.     (true)
  439. =>
  440.     (chat-local-to-self "detecting ocean map!")
  441.     (set-goal 1 10)
  442.     (set-goal 2 0)
  443.     (disable-self)
  444. )
  445.  
  446. #end-if
  447. ;*******************************
  448. #load-if-defined TEAM-ISLANDS-MAP
  449. (load "petersen fishboat")
  450. (load "petersen warboat island")
  451.  
  452. (defrule
  453.     (true)
  454. =>
  455.     (chat-local-to-self "detecting ocean map!")
  456.     (set-goal 1 10)
  457.     (set-goal 2 0)
  458.     (disable-self)
  459. )
  460.  
  461. #end-if
  462. ;*******************************
  463. #load-if-defined BALTIC-MAP
  464. (load "petersen fishboat")
  465. (load "petersen warboat")
  466.  
  467. (defrule
  468.     (true)
  469. =>
  470.     (chat-local-to-self "detecting water map!")
  471.     (set-goal 1 1)
  472.     (set-goal 2 0)
  473.     (disable-self)
  474. )
  475. #end-if
  476. ;*******************************
  477. #load-if-defined COASTAL-MAP
  478. (load "petersen fishboat")
  479. (load "petersen warboat")
  480.  
  481. (defrule
  482.     (true)
  483. =>
  484.     (chat-local-to-self "detecting water map!")
  485.     (set-goal 1 1)
  486.     (set-goal 2 0)
  487.     (disable-self)
  488. )
  489. #end-if
  490. ;*******************************
  491. #load-if-defined CONTINENTAL-MAP
  492. (load "petersen fishboat")
  493. (load "petersen warboat")
  494.  
  495. (defrule
  496.     (true)
  497. =>
  498.     (chat-local-to-self "detecting water map!")
  499.     (set-goal 1 1)
  500.     (set-goal 2 0)
  501.     (disable-self)
  502. )
  503. #end-if
  504. ;*******************************
  505. #load-if-defined CRATER-LAKE-MAP
  506. (load "petersen fishboat")
  507. (load "petersen warboat")
  508.  
  509. (defrule
  510.     (true)
  511. =>
  512.     (chat-local-to-self "detecting water map!")
  513.     (set-goal 1 1)
  514.     (set-goal 2 0)
  515.     (disable-self)
  516. )
  517. #end-if
  518. ;*******************************
  519. #load-if-defined MEDITERRANEAN-MAP
  520. (load "petersen fishboat")
  521. (load "petersen warboat")
  522.  
  523. (defrule
  524.     (true)
  525. =>
  526.     (chat-local-to-self "detecting water map!")
  527.     (set-goal 1 1)
  528.     (set-goal 2 0)
  529.     (disable-self)
  530. )
  531. #end-if
  532. ;*******************************
  533. #load-if-defined RIVERS-MAP
  534. (load "petersen fishboat")
  535. (load "petersen warboat")
  536.  
  537. (defrule
  538.     (true)
  539. =>
  540.     (chat-local-to-self "detecting water map!")
  541.     (set-goal 1 1)
  542.     (set-goal 2 0)
  543.     (disable-self)
  544. )
  545. #end-if
  546. ;*******************************
  547. #load-if-defined ARABIA-MAP
  548.  
  549. (defrule
  550.     (true)
  551. =>
  552.     (chat-local-to-self "detecting land map!")
  553.     (set-goal 1 0)
  554.     (disable-self)
  555. )
  556. #end-if
  557. ;*******************************
  558. #load-if-defined BLACK-FOREST-MAP
  559.  
  560. (defrule
  561.     (true)
  562. =>
  563.     (chat-local-to-self "detecting land map!")
  564.     (set-goal 1 0)
  565.     (disable-self)
  566. )
  567.  
  568. (defrule
  569.     (difficulty <= hard)
  570.     (unit-type-count-total bombard-cannon < five-percent-pop)
  571.     (can-train-with-escrow bombard-cannon)
  572.     (not (goal upgrade-conflict NOTICE) )
  573. =>
  574.     (release-escrow wood)
  575.     (release-escrow gold)
  576.     (train bombard-cannon)
  577.     (chat-local-to-self "bombard")
  578. )
  579.  
  580. #end-if
  581. ;*******************************
  582. #load-if-defined FORTRESS-MAP
  583.  
  584. (defrule
  585.     (true)
  586. =>
  587.     (chat-local-to-self "detecting land map!")
  588.     (set-goal 1 0)
  589.     (disable-self)
  590. )
  591. #end-if
  592. ;*******************************
  593. #load-if-defined GOLD-RUSH-MAP
  594.  
  595. (defrule
  596.     (true)
  597. =>
  598.     (chat-local-to-self "detecting land map!")
  599.     (set-goal 1 0)
  600.     (disable-self)
  601. )
  602.  
  603. (defrule
  604.     (current-age >= feudal-age)
  605.     (not (strategic-number sn-maximum-town-size == imperial-town-size) )
  606. =>
  607.     (set-strategic-number sn-maximum-town-size imperial-town-size)
  608. )
  609. #end-if
  610. ;*******************************
  611. #load-if-defined HIGHLAND-MAP
  612.  
  613. (defrule
  614.     (true)
  615. =>
  616.     (chat-local-to-self "detecting land map!")
  617.     (set-goal 1 0)
  618.     (disable-self)
  619. )
  620.  
  621. (defrule
  622.     (current-age == imperial-age)
  623.     (building-type-count-total dock == 0)
  624.     (wood-amount > 400)
  625.     (or
  626.         (cc-players-building-type-count any-enemy fortified-wall > 0)
  627.         (cc-players-building-type-count any-enemy stone-wall > 0)
  628.     )
  629.     (can-build dock)
  630. =>
  631.     (build dock)
  632. )
  633.  
  634. (defrule
  635.     (current-age == imperial-age)
  636.     (unit-type-count-total transport-ship == 0)
  637.     (or
  638.         (cc-players-building-type-count any-enemy fortified-wall > 0)
  639.         (cc-players-building-type-count any-enemy stone-wall > 0)
  640.     )
  641.     (can-train transport-ship)
  642. =>
  643.     (train transport-ship)
  644. )
  645.  
  646.  
  647. #end-if
  648. ;*************************************************************
  649.  
  650. #load-if-defined REGICIDE
  651. (defrule
  652.     (building-type-count-total castle == 0)
  653.     (not (goal castle-attempt YES) )
  654. =>
  655.     (set-goal castle-attempt YES)
  656. )
  657.  
  658. (defrule
  659.     (current-age < imperial-age)
  660.     (not (goal rush-control 4) )
  661. =>
  662.     (set-goal rush-control 4)
  663. )
  664.  
  665. (defrule    ;200 in regicide
  666.     (goal military-parity SUPERIOR)
  667.     (can-spy)
  668. =>
  669.     (spy)
  670.     (disable-self)
  671. )
  672.  
  673.  
  674. #end-if